WBStartup

; Kennen wir

WBenchToFront_

WbToScreen 0
Use Screen 0
*Scr = ActiveScreen

;Intuifont Bestimmen

FH=Peek.w(Peek.l(*Scr+40)+4)
FN$=Peek$(Peek.l(*Scr+40)+8)
LoadFont 0,FN$,FH
Use IntuiFont 0

; Window Oeffnen

SH.w=Peek.w(*Scr+14)
SW.w=Peek.w(*Scr+12)
SB.b=Peek.b(*Scr+30)


SizeLimits 200,120,SW,SH

;Bestimmen der TagList

GTTags $80080000,$80080000+15


Window 0,0,SB,SW,SH-SB,$140F,"Gatget BB2-Kurs",1,2

a=0:a$="Vorname"

Gosub GadDef


Repeat

  FlushEvents
  ev.l=WaitEvent


  If ev=$40

	 Select GadgetHit

	  Case 0

		WLocate 1,100:Print "Eintag Nummer ",GTGetAttrs(0,0,$80080000+15)

	 End Select
  End If

Until ev=$200
End

; Gadget Definieren

.GadDef
WCls
GTCycle 0,0,100,0,200,FH+5,"Gadget Text",1,"0 Eintrag|1 Eintrag|2 Eintrag"
AttachGTList 0,0
Return